home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1986 August / Ahoy_Magazine_86-08_1986_Double_L.d64 / Simple Scroller (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1986-01-01  |  244 b   |  10 lines
  1. 1 print"[147]":poke53280,6:poke53281,1:poke646,0
  2. 2 printtab(6)"commodares...simple scroller"
  3. 3 rem solution by
  4. 4 rem     a.j.reid
  5. 5 rem
  6. 10 w=40 :for n=1 to w/2 :s$=s$+" .":next
  7. 15 input m$ : m$=s$+m$+s$
  8. 20 for n=1 to len(m$)-w:print chr$(145)mid$(m$,n,w);
  9. 30 for j=1 to 50:next:next:goto 20
  10.